<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>
<html xmlns='http://www.w3.org/1999/xhtml'>
<head>
<title>src/vfs/extfs/helpers/dpkg+.in</title>
<meta name='robots' content='noindex,nofollow' />
<meta name='generator' content='GLOBAL-6.5.7' />
<meta http-equiv='Content-Style-Type' content='text/css' />
<link rel='stylesheet' type='text/css' href='../style.css' />
</head>
<body>
<!-- beginning of fixed guide -->
<div id='guide'><ul>
<li><a href='#TOP'><img class='icon' src='../icons/first.png' alt='[^]' /></a></li>
<li><a href='#BOTTOM'><img class='icon' src='../icons/last.png' alt='[v]' /></a></li>
<li><a href='#TOP'><img class='icon' src='../icons/top.png' alt='[top]' /></a></li>
<li><a href='#BOTTOM'><img class='icon' src='../icons/bottom.png' alt='[bottom]' /></a></li>
<li><a href='../mains.html'><img class='icon' src='../icons/index.png' alt='[index]' /></a></li>
<li><a href='../help.html'><img class='icon' src='../icons/help.png' alt='[help]' /></a></li>
<li class='standout'><span><a href='../files/src.html'>src</a>/<a href='../files/src--vfs.html'>vfs</a>/<a href='../files/src--vfs--extfs.html'>extfs</a>/<a href='../files/src--vfs--extfs--helpers.html'>helpers</a>/dpkg+.in</span></li>
</ul></div>
<!-- end of fixed guide -->
<a id='TOP' name='TOP'></a><h2 class='header'><a href='../mains.html'>root</a>/<a href='../files/src.html'>src</a>/<a href='../files/src--vfs.html'>vfs</a>/<a href='../files/src--vfs--extfs.html'>extfs</a>/<a href='../files/src--vfs--extfs--helpers.html'>helpers</a>/dpkg+.in</h2>
<em class='comment'>/* <img class='icon' src='../icons/n_left.png' alt='[previous]' /><img class='icon' src='../icons/n_right.png' alt='[next]' /><img class='icon' src='../icons/n_first.png' alt='[first]' /><img class='icon' src='../icons/n_last.png' alt='[last]' /><img class='icon' src='../icons/n_top.png' alt='[top]' /><a href='#BOTTOM'><img class='icon' src='../icons/bottom.png' alt='[bottom]' /></a><a href='../mains.html'><img class='icon' src='../icons/index.png' alt='[index]' /></a><a href='../help.html'><img class='icon' src='../icons/help.png' alt='[help]' /></a>&nbsp;<input type='text' readonly onfocus='this.select();' value='+1 src/vfs/extfs/helpers/dpkg+.in'  /> */</em>
<hr />
<pre>
<a id='L1' name='L1'></a>#! @PERL@
<a id='L2' name='L2'></a>#
<a id='L3' name='L3'></a># 1999 (c) Piotr Roszatycki &lt;dexter@debian.org&gt;
<a id='L4' name='L4'></a># This software is under GNU license
<a id='L5' name='L5'></a># last modification: 1999-12-08
<a id='L6' name='L6'></a>#
<a id='L7' name='L7'></a># dpkg
<a id='L8' name='L8'></a> 
<a id='L9' name='L9'></a>sub quote {
<a id='L10' name='L10'></a>    $_ = shift(@_);
<a id='L11' name='L11'></a>    s/([^\w\/.+-])/\\$1/g;
<a id='L12' name='L12'></a>    return($_);
<a id='L13' name='L13'></a>}
<a id='L14' name='L14'></a> 
<a id='L15' name='L15'></a>sub bt
<a id='L16' name='L16'></a>{
<a id='L17' name='L17'></a>    my ($dt) = @_;
<a id='L18' name='L18'></a>    my (@time);
<a id='L19' name='L19'></a>    @time = localtime($dt);
<a id='L20' name='L20'></a>    $bt = sprintf "%02d-%02d-%d %02d:%02d", $time[4] + 1, $time[3],
<a id='L21' name='L21'></a>                  $time[5] + 1900, $time[2], $time[1];
<a id='L22' name='L22'></a>    return $bt;
<a id='L23' name='L23'></a>}
<a id='L24' name='L24'></a> 
<a id='L25' name='L25'></a> 
<a id='L26' name='L26'></a>sub ft
<a id='L27' name='L27'></a>{
<a id='L28' name='L28'></a>    my ($f) = @_;
<a id='L29' name='L29'></a>    return "d" if -d $f;
<a id='L30' name='L30'></a>    return "l" if -l $f;
<a id='L31' name='L31'></a>    return "p" if -p $f;
<a id='L32' name='L32'></a>    return "S" if -S $f;
<a id='L33' name='L33'></a>    return "b" if -b $f;
<a id='L34' name='L34'></a>    return "c" if -c $f;
<a id='L35' name='L35'></a>    return "-";
<a id='L36' name='L36'></a>}
<a id='L37' name='L37'></a> 
<a id='L38' name='L38'></a>sub fm
<a id='L39' name='L39'></a>{
<a id='L40' name='L40'></a>    my ($n) = @_;
<a id='L41' name='L41'></a>    my ($m);
<a id='L42' name='L42'></a> 
<a id='L43' name='L43'></a>    if( $n &amp; 0400 ) {
<a id='L44' name='L44'></a>       $m .= "r";
<a id='L45' name='L45'></a>    } else {
<a id='L46' name='L46'></a>       $m .= "-";
<a id='L47' name='L47'></a>    }
<a id='L48' name='L48'></a>    if( $n &amp; 0200 ) {
<a id='L49' name='L49'></a>       $m .= "w";
<a id='L50' name='L50'></a>    } else {
<a id='L51' name='L51'></a>       $m .= "-";
<a id='L52' name='L52'></a>    }
<a id='L53' name='L53'></a>    if( $n &amp; 04000 ) {
<a id='L54' name='L54'></a>       $m .= "s";
<a id='L55' name='L55'></a>    } elsif( $n &amp; 0100 ) {
<a id='L56' name='L56'></a>       $m .= "x";
<a id='L57' name='L57'></a>    } else {
<a id='L58' name='L58'></a>       $m .= "-";
<a id='L59' name='L59'></a>    }
<a id='L60' name='L60'></a> 
<a id='L61' name='L61'></a>    if( $n &amp; 0040 ) {
<a id='L62' name='L62'></a>       $m .= "r";
<a id='L63' name='L63'></a>    } else {
<a id='L64' name='L64'></a>       $m .= "-";
<a id='L65' name='L65'></a>    }
<a id='L66' name='L66'></a>    if( $n &amp; 0020 ) {
<a id='L67' name='L67'></a>       $m .= "w";
<a id='L68' name='L68'></a>    } else {
<a id='L69' name='L69'></a>       $m .= "-";
<a id='L70' name='L70'></a>    }
<a id='L71' name='L71'></a>    if( $n &amp; 02000 ) {
<a id='L72' name='L72'></a>       $m .= "s";
<a id='L73' name='L73'></a>    } elsif( $n &amp; 0010 ) {
<a id='L74' name='L74'></a>       $m .= "x";
<a id='L75' name='L75'></a>    } else {
<a id='L76' name='L76'></a>       $m .= "-";
<a id='L77' name='L77'></a>    }
<a id='L78' name='L78'></a> 
<a id='L79' name='L79'></a>    if( $n &amp; 0004 ) {
<a id='L80' name='L80'></a>       $m .= "r";
<a id='L81' name='L81'></a>    } else {
<a id='L82' name='L82'></a>       $m .= "-";
<a id='L83' name='L83'></a>    }
<a id='L84' name='L84'></a>    if( $n &amp; 0002 ) {
<a id='L85' name='L85'></a>       $m .= "w";
<a id='L86' name='L86'></a>    } else {
<a id='L87' name='L87'></a>       $m .= "-";
<a id='L88' name='L88'></a>    }
<a id='L89' name='L89'></a>    if( $n &amp; 01000 ) {
<a id='L90' name='L90'></a>       $m .= "t";
<a id='L91' name='L91'></a>    } elsif( $n &amp; 0001 ) {
<a id='L92' name='L92'></a>       $m .= "x";
<a id='L93' name='L93'></a>    } else {
<a id='L94' name='L94'></a>       $m .= "-";
<a id='L95' name='L95'></a>    }
<a id='L96' name='L96'></a> 
<a id='L97' name='L97'></a>    return $m;
<a id='L98' name='L98'></a>}
<a id='L99' name='L99'></a> 
<a id='L100' name='L100'></a>sub ls {
<a id='L101' name='L101'></a>    my ($file,$path,$mode) = @_;
<a id='L102' name='L102'></a> 
<a id='L103' name='L103'></a>    if (-f $file) {
<a id='L104' name='L104'></a>        my @stat = stat(_);
<a id='L105' name='L105'></a>        # mode, nlink, uid, gid, size, mtime, filename
<a id='L106' name='L106'></a>        printf "%s %d %d %d %d %s %s\n", $mode || ft($file).fm($stat[2] &amp; 07777),
<a id='L107' name='L107'></a>          $stat[3], $stat[4], $stat[5], $stat[7], bt($stat[9]), $path;
<a id='L108' name='L108'></a>    }
<a id='L109' name='L109'></a>}
<a id='L110' name='L110'></a> 
<a id='L111' name='L111'></a>$DATE=bt(time());
<a id='L112' name='L112'></a> 
<a id='L113' name='L113'></a>sub list
<a id='L114' name='L114'></a>{
<a id='L115' name='L115'></a>    my ($pkg, $fn, $dn, $sz, $bt);
<a id='L116' name='L116'></a>    my %debs = ();
<a id='L117' name='L117'></a>    my %sects = ();
<a id='L118' name='L118'></a> 
<a id='L119' name='L119'></a>    my($diversions,$architecture);
<a id='L120' name='L120'></a>    chop($diversions = `dpkg-divert --list 2&gt;/dev/null`);
<a id='L121' name='L121'></a>    chop($architecture = `dpkg-architecture 2&gt;/dev/null`);
<a id='L122' name='L122'></a>    chop($list = `dpkg -l '*' 2&gt;/dev/null`);
<a id='L123' name='L123'></a>    chop($getselections = `dpkg --get-selections 2&gt;/dev/null`);
<a id='L124' name='L124'></a>    chop($audit = `dpkg --audit 2&gt;/dev/null`);
<a id='L125' name='L125'></a>    $sz = length($diversions);
<a id='L126' name='L126'></a>    print "-r--r--r-- 1 root root $sz $DATE DIVERSIONS\n";
<a id='L127' name='L127'></a>    $sz = length($architecture);
<a id='L128' name='L128'></a>    print "-r--r--r-- 1 root root $sz $DATE ARCHITECTURE\n";
<a id='L129' name='L129'></a>    $sz = length($list);
<a id='L130' name='L130'></a>    print "-r--r--r-- 1 root root $sz $DATE LIST\n";
<a id='L131' name='L131'></a>    $sz = length($getselections);
<a id='L132' name='L132'></a>    print "-r--r--r-- 1 root root $sz $DATE GET-SELECTIONS\n";
<a id='L133' name='L133'></a>    $sz = length($audit);
<a id='L134' name='L134'></a>    print "-r--r--r-- 1 root root $sz $DATE AUDIT\n";
<a id='L135' name='L135'></a>    $sz = length($pressconfigure);
<a id='L136' name='L136'></a>    print "-r-xr--r-- 1 root root $sz $DATE CONFIGURE\n";
<a id='L137' name='L137'></a>    $sz = length($pressremove);
<a id='L138' name='L138'></a>    print "-r-xr--r-- 1 root root $sz $DATE REMOVE\n";
<a id='L139' name='L139'></a>    $sz = length($pressclearavail);
<a id='L140' name='L140'></a>    print "-r-xr--r-- 1 root root $sz $DATE CLEAR-AVAIL\n";
<a id='L141' name='L141'></a>    $sz = length($pressforgetoldunavail);
<a id='L142' name='L142'></a>    print "-r-xr--r-- 1 root root $sz $DATE FORGET-OLD-UNAVAIL\n";
<a id='L143' name='L143'></a>    ls("/var/lib/dpkg/status","STATUS","-r--r--r--");
<a id='L144' name='L144'></a>    # ls("/var/lib/dpkg/available","AVAILABLE","-r--r--r--");
<a id='L145' name='L145'></a> 
<a id='L146' name='L146'></a>    print "drwxr-xr-x 1 root root 0 $DATE all\n";
<a id='L147' name='L147'></a> 
<a id='L148' name='L148'></a>    open STAT, "/var/lib/dpkg/status"
<a id='L149' name='L149'></a>       or exit 1;
<a id='L150' name='L150'></a>    while( &lt;STAT&gt; ) {
<a id='L151' name='L151'></a>       chop;
<a id='L152' name='L152'></a>       if( /^([\w-]*): (.*)/ ) {
<a id='L153' name='L153'></a>           $pkg = $2 if( lc($1) eq 'package' );
<a id='L154' name='L154'></a>           $debs{$pkg}{lc($1)} = $2;
<a id='L155' name='L155'></a>       }
<a id='L156' name='L156'></a>    }
<a id='L157' name='L157'></a>    close STAT;
<a id='L158' name='L158'></a> 
<a id='L159' name='L159'></a>    foreach $pkg (sort keys %debs) {
<a id='L160' name='L160'></a>       next if $debs{$pkg}{status} =~ /not-installed/;
<a id='L161' name='L161'></a>       $fn = $debs{$pkg}{package}. "_". $debs{$pkg}{version};
<a id='L162' name='L162'></a>       $dn = $debs{$pkg}{section};
<a id='L163' name='L163'></a>       if( ! $dn ) {
<a id='L164' name='L164'></a>           $dn = "unknown";
<a id='L165' name='L165'></a>       } elsif( $dn =~ /^(non-us)$/i ) {
<a id='L166' name='L166'></a>           $dn .= "/main";
<a id='L167' name='L167'></a>       } elsif( $dn !~ /\// ) {
<a id='L168' name='L168'></a>           $dn = "main/". $dn;
<a id='L169' name='L169'></a>       }
<a id='L170' name='L170'></a>       unless( $sects{$dn} ) {
<a id='L171' name='L171'></a>           my $sub = $dn;
<a id='L172' name='L172'></a>           while( $sub =~ s!^(.*)/[^/]*$!$1! ) {
<a id='L173' name='L173'></a>               unless( $sects{$sub} ) {
<a id='L174' name='L174'></a>                   print "drwxr-xr-x 1 root root 0 $DATE $sub/\n";
<a id='L175' name='L175'></a>                   $sects{$sub} = 1;
<a id='L176' name='L176'></a>               }
<a id='L177' name='L177'></a>           }
<a id='L178' name='L178'></a>           print "drwxr-xr-x 1 root root 0 $DATE $dn/\n";
<a id='L179' name='L179'></a>           $sects{$dn} = 1;
<a id='L180' name='L180'></a>       }
<a id='L181' name='L181'></a>       $sz = $debs{$pkg}{'status'} =~ /config-files/ ? 0 : $debs{$pkg}{'installed-size'} * 1024;
<a id='L182' name='L182'></a>       @stat = stat("/var/lib/dpkg/info/".$debs{$pkg}{package}.".list");
<a id='L183' name='L183'></a>       $bt = bt($stat[9]);
<a id='L184' name='L184'></a>       print "-rw-r--r-- 1 root root $sz $bt $dn/$fn.debd\n";
<a id='L185' name='L185'></a>       print "lrwxrwxrwx 1 root root $sz $bt all/$fn.debd -&gt; ../$dn/$fn.debd\n";
<a id='L186' name='L186'></a>    }
<a id='L187' name='L187'></a>}
<a id='L188' name='L188'></a> 
<a id='L189' name='L189'></a>sub copyout
<a id='L190' name='L190'></a>{
<a id='L191' name='L191'></a>    my($archive,$filename) = @_;
<a id='L192' name='L192'></a>    my $qfilename = quote($filename);
<a id='L193' name='L193'></a>    if( $archive eq 'DIVERSIONS' ) {
<a id='L194' name='L194'></a>       system("dpkg-divert --list &gt; $qfilename 2&gt;/dev/null");
<a id='L195' name='L195'></a>    } elsif( $archive eq 'ARCHITECTURE' ) {
<a id='L196' name='L196'></a>       system("dpkg-architecture &gt; $qfilename 2&gt;/dev/null");
<a id='L197' name='L197'></a>    } elsif( $archive eq 'LIST' ) {
<a id='L198' name='L198'></a>       system("dpkg -l '*' &gt; $qfilename 2&gt;/dev/null");
<a id='L199' name='L199'></a>    } elsif( $archive eq 'AUDIT' ) {
<a id='L200' name='L200'></a>       system("dpkg --audit &gt; $qfilename 2&gt;/dev/null");
<a id='L201' name='L201'></a>    } elsif( $archive eq 'GET-SELECTIONS' ) {
<a id='L202' name='L202'></a>       system("dpkg --get-selections &gt; $qfilename 2&gt;/dev/null");
<a id='L203' name='L203'></a>    } elsif( $archive eq 'STATUS' ) {
<a id='L204' name='L204'></a>       system("cp /var/lib/dpkg/status $qfilename");
<a id='L205' name='L205'></a>    } elsif( $archive eq 'AVAILABLE' ) {
<a id='L206' name='L206'></a>       system("cp /var/lib/dpkg/available $qfilename");
<a id='L207' name='L207'></a>    } elsif( $archive eq 'CONFIGURE' ) {
<a id='L208' name='L208'></a>       open O, "&gt;$filename";
<a id='L209' name='L209'></a>       print O $pressconfigure;
<a id='L210' name='L210'></a>       close O;
<a id='L211' name='L211'></a>    } elsif( $archive eq 'REMOVE' ) {
<a id='L212' name='L212'></a>       open O, "&gt;$filename";
<a id='L213' name='L213'></a>       print O $pressremove;
<a id='L214' name='L214'></a>       close O;
<a id='L215' name='L215'></a>    } elsif( $archive eq 'CLEAR-AVAIL' ) {
<a id='L216' name='L216'></a>       open O, "&gt;$filename";
<a id='L217' name='L217'></a>       print O $pressclearavail;
<a id='L218' name='L218'></a>       close O;
<a id='L219' name='L219'></a>    } elsif( $archive eq 'FORGET-OLD-UNAVAIL' ) {
<a id='L220' name='L220'></a>       open O, "&gt;$filename";
<a id='L221' name='L221'></a>       print O $pressforgetoldunavail;
<a id='L222' name='L222'></a>       close O;
<a id='L223' name='L223'></a>    } else {
<a id='L224' name='L224'></a>       open O, "&gt;$filename";
<a id='L225' name='L225'></a>       print O $archive, "\n";
<a id='L226' name='L226'></a>       close O;
<a id='L227' name='L227'></a>    }
<a id='L228' name='L228'></a>}
<a id='L229' name='L229'></a> 
<a id='L230' name='L230'></a># too noisy but less dangerouse
<a id='L231' name='L231'></a>sub copyin
<a id='L232' name='L232'></a>{
<a id='L233' name='L233'></a>    my($archive,$filename) = @_;
<a id='L234' name='L234'></a>    my $qfilename = quote($filename);
<a id='L235' name='L235'></a>    if( $archive =~ /\.deb$/ ) {
<a id='L236' name='L236'></a>       system("dpkg -i $qfilename&gt;/dev/null");
<a id='L237' name='L237'></a>    } else {
<a id='L238' name='L238'></a>       die "extfs: cannot create regular file \`$archive\': Permission denied\n";
<a id='L239' name='L239'></a>    }
<a id='L240' name='L240'></a>}
<a id='L241' name='L241'></a> 
<a id='L242' name='L242'></a>sub run
<a id='L243' name='L243'></a>{
<a id='L244' name='L244'></a>    my($archive,$filename) = @_;
<a id='L245' name='L245'></a>    if( $archive eq 'CONFIGURE' ) {
<a id='L246' name='L246'></a>       system("dpkg --pending --configure");
<a id='L247' name='L247'></a>    } elsif( $archive eq 'REMOVE' ) {
<a id='L248' name='L248'></a>       system("dpkg --pending --remove");
<a id='L249' name='L249'></a>    } elsif( $archive eq 'CLEAR-AVAIL' ) {
<a id='L250' name='L250'></a>       system("dpkg --clear-avail");
<a id='L251' name='L251'></a>    } elsif( $archive eq 'FORGET-OLD-UNAVAIL' ) {
<a id='L252' name='L252'></a>       system("dpkg --forget-old-unavail");
<a id='L253' name='L253'></a>    } else {
<a id='L254' name='L254'></a>       die "extfs: $filename: command not found\n";
<a id='L255' name='L255'></a>    }
<a id='L256' name='L256'></a>}
<a id='L257' name='L257'></a> 
<a id='L258' name='L258'></a># Disabled - too dangerous and too noisy
<a id='L259' name='L259'></a>sub rm_disabled
<a id='L260' name='L260'></a>{
<a id='L261' name='L261'></a>    my($archive) = @_;
<a id='L262' name='L262'></a>    if( $archive =~ /\.debd?$/ ) {
<a id='L263' name='L263'></a>       my $qname = quote($archive);
<a id='L264' name='L264'></a>       $qname =~ s%.*/%%g;
<a id='L265' name='L265'></a>       $qname =~ s%_.*%%g;
<a id='L266' name='L266'></a>       system("if dpkg -s $qname | grep ^Status | grep -qs config-files; \
<a id='L267' name='L267'></a>           then dpkg --purge $qname&gt;/dev/null; \
<a id='L268' name='L268'></a>           else dpkg --remove $qname&gt;/dev/null; fi");
<a id='L269' name='L269'></a>       die("extfs: $archive: Operation not permitted\n") if $? != 0;
<a id='L270' name='L270'></a>    } else {
<a id='L271' name='L271'></a>       die "extfs: $archive: Operation not permitted\n";
<a id='L272' name='L272'></a>    }
<a id='L273' name='L273'></a>}
<a id='L274' name='L274'></a> 
<a id='L275' name='L275'></a> 
<a id='L276' name='L276'></a>$pressconfigure=&lt;&lt;EOInstall;
<a id='L277' name='L277'></a> 
<a id='L278' name='L278'></a>                              WARNING
<a id='L279' name='L279'></a>     Don\'t use this method if you are not willing to configure all
<a id='L280' name='L280'></a>                     non configured packages.
<a id='L281' name='L281'></a> 
<a id='L282' name='L282'></a>This is not a real file. It is a way to configure all non configured packages.
<a id='L283' name='L283'></a> 
<a id='L284' name='L284'></a>To configure packages go back to the panel and press Enter on this file.
<a id='L285' name='L285'></a> 
<a id='L286' name='L286'></a>EOInstall
<a id='L287' name='L287'></a> 
<a id='L288' name='L288'></a>$pressremove=&lt;&lt;EOInstall;
<a id='L289' name='L289'></a> 
<a id='L290' name='L290'></a>                              WARNING
<a id='L291' name='L291'></a>     Don\'t use this method if you are not willing to remove all 
<a id='L292' name='L292'></a>                      unselected packages.
<a id='L293' name='L293'></a> 
<a id='L294' name='L294'></a>This is not a real file. It is a way to remove all unselected packages.
<a id='L295' name='L295'></a> 
<a id='L296' name='L296'></a>To remove packages go back to the panel and press Enter on this file.
<a id='L297' name='L297'></a> 
<a id='L298' name='L298'></a>EOInstall
<a id='L299' name='L299'></a> 
<a id='L300' name='L300'></a>$pressforgetoldunavail=&lt;&lt;EOInstall;
<a id='L301' name='L301'></a> 
<a id='L302' name='L302'></a>                              WARNING
<a id='L303' name='L303'></a>     Don\'t use this method if you are not willing to forget about
<a id='L304' name='L304'></a>                 uninstalled unavailable packages.
<a id='L305' name='L305'></a> 
<a id='L306' name='L306'></a>This is not a real file. It is a way to forget about uninstalled
<a id='L307' name='L307'></a>unavailable packages.
<a id='L308' name='L308'></a> 
<a id='L309' name='L309'></a>To forget this information go back to the panel and press Enter on this file.
<a id='L310' name='L310'></a> 
<a id='L311' name='L311'></a>EOInstall
<a id='L312' name='L312'></a> 
<a id='L313' name='L313'></a>$pressclearavail=&lt;&lt;EOInstall;
<a id='L314' name='L314'></a> 
<a id='L315' name='L315'></a>                              WARNING
<a id='L316' name='L316'></a>     Don\'t use this method if you are not willing to erase the existing
<a id='L317' name='L317'></a>           information about what packages are available.
<a id='L318' name='L318'></a> 
<a id='L319' name='L319'></a>This is not a real file. It is a way to erase the existing information
<a id='L320' name='L320'></a>about what packages are available.
<a id='L321' name='L321'></a> 
<a id='L322' name='L322'></a>To clear this information go back to the panel and press Enter on this file.
<a id='L323' name='L323'></a> 
<a id='L324' name='L324'></a>EOInstall
<a id='L325' name='L325'></a> 
<a id='L326' name='L326'></a> 
<a id='L327' name='L327'></a> 
<a id='L328' name='L328'></a># override any locale for dates
<a id='L329' name='L329'></a>$ENV{"LC_ALL"}="C";
<a id='L330' name='L330'></a> 
<a id='L331' name='L331'></a>if ($ARGV[0] eq "list") { list(); exit(0); }
<a id='L332' name='L332'></a>elsif ($ARGV[0] eq "copyout") { copyout($ARGV[2], $ARGV[3]); exit(0); }
<a id='L333' name='L333'></a>elsif ($ARGV[0] eq "copyin") { copyin($ARGV[2], $ARGV[3]); exit(0); }
<a id='L334' name='L334'></a>elsif ($ARGV[0] eq "run") { run($ARGV[2],$ARGV[3]); exit(0); }
<a id='L335' name='L335'></a>#elsif ($ARGV[0] eq "rm") { rm($ARGV[2]); exit(0); }
<a id='L336' name='L336'></a>exit(1);
<a id='L337' name='L337'></a> 
</pre>
<hr />
<a id='BOTTOM' name='BOTTOM'></a>
<em class='comment'>/* <img class='icon' src='../icons/n_left.png' alt='[previous]' /><img class='icon' src='../icons/n_right.png' alt='[next]' /><img class='icon' src='../icons/n_first.png' alt='[first]' /><img class='icon' src='../icons/n_last.png' alt='[last]' /><a href='#TOP'><img class='icon' src='../icons/top.png' alt='[top]' /></a><img class='icon' src='../icons/n_bottom.png' alt='[bottom]' /><a href='../mains.html'><img class='icon' src='../icons/index.png' alt='[index]' /></a><a href='../help.html'><img class='icon' src='../icons/help.png' alt='[help]' /></a>&nbsp;<input type='text' readonly onfocus='this.select();' value='+337 src/vfs/extfs/helpers/dpkg+.in'  /> */</em>
</body>
</html>
